/* programa que vai mostra a estrutura de um ou mais arquivos de .dbf
Autor: Lin Po Yuan
Data: 09.02.96
*/

#include "Dbstruct.ch"

Local astruct1,astruct2
    close databases
/*
    use CLIENTES  new ALIAS CLIENTES
*   use CLIENTE  new ALIAS CLIENTE

    use prod ALIAS prod new
*   use produto ALIAS produto new
    use estoque ALIAS estoque new

    use pedidoma ALIAS pedma new
*   use paramped ALIAS paramped new
    use pedidosi ALIAS pedit new
*   use fatura ALIAS fatura new
*   use es ALIAS es new
    use vendedor ALIAS vendedor new
*/
    use estadoss ALIAS estados new
    use transpor ALIAS transp new
    use wnctrl   ALIAS wnctrl new


    use temp ALIAS temp new


*use DACCTRL ALIAS DACCTRL

set printer to stru1.txt
set device to printer
set printer on
/*
astruct0  := prod -> (DBSTRUCT())
astruct1  := estoque -> (DBSTRUCT())
astruct2  := CLIENTES -> (DBSTRUCT())
astruct3  := pedma -> (DBSTRUCT())
astruct4  := pedit -> (DBSTRUCT())
astruct5  := temp -> (DBSTRUCT())
*astruct6  := cliente -> (DBSTRUCT())
*astruct7  := es -> (DBSTRUCT())
*astruct8  := fatura -> (DBSTRUCT())
*astruct9  := paramped -> (DBSTRUCT())
*astruct10 := produto -> (DBSTRUCT())
astruct11 := vendedor-> (DBSTRUCT())

*astruct1 := DACctrl -> (DBSTRUCT())
*/

astruct12 := estados -> (DBSTRUCT())
astruct13 := transp  -> (DBSTRUCT())
astruct14 := wnctrl  -> (DBSTRUCT())
/*
AEVAL (astruct0,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
AEVAL (astruct1,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
AEVAL (astruct2,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
AEVAL (astruct3,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
AEVAL (astruct4,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
AEVAL (astruct5,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
*AEVAL (astruct6,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
*AEVAL (astruct7,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
*AEVAL (astruct8,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
*AEVAL (astruct9,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
*AEVAL (astruct10,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
?
AEVAL (astruct11,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})

*AEVAL (astruct1,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
*/

AEVAL (astruct12,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
AEVAL (astruct13,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})
AEVAL (astruct14,{|aField| QOUT (aField[DBS_NAME],aField[DBS_TYPE],aField[DBS_LEN],aField[DBS_DEC])})

close databases
set device to screen
set printer off
set printer to

